home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / lblcs.arc / CRT_SETP.ASM < prev    next >
Assembly Source File  |  1985-04-05  |  881b  |  67 lines
  1.  
  2. ;-----------------------------------------------------------------------
  3. ;
  4. ; name        crt_setpage -- set current text page
  5. ;
  6. ;
  7. ; synopsis    VOID    crt_setpage(page)
  8. ;            int    page;
  9. ;  
  10. ; description    Sets current active video page number to "page".
  11. ;        Used in text mode only.  Valid page #'s are 0-3 for
  12. ;        80 x 25 display and 0-7 for 40 x 25 display. 
  13. ;
  14. ;
  15. ;----------------------------------------------------------------------
  16.  
  17.  
  18.  
  19.     include    dos.mac
  20.  
  21. video    equ    10h        ; video interrupt number
  22.  
  23.  
  24.     IF    LPROG
  25. X    EQU    6        ;OFFSET OF ARGUMENTS
  26.     ELSE
  27. X    EQU    4        ;OFFSET OF ARGUMENTS
  28.     ENDIF
  29.  
  30.     PSEG
  31.  
  32.  
  33.     PUBLIC    crt_setpage
  34.  
  35.  
  36.     IF    LPROG
  37. crt_setpage    PROC    FAR
  38.     ELSE
  39. crt_setpage    PROC    NEAR
  40.     ENDIF
  41.  
  42.  
  43.  
  44.     push    bp
  45.     mov    bp,sp
  46.  
  47.  
  48.  
  49.     mov    al,[bp+x]        ; page number
  50.     mov    ah,5            ; set page function
  51.     int    video
  52.  
  53.  
  54.     pop    bp
  55.     ret
  56.  
  57.  
  58. crt_setpage    ENDP
  59.  
  60.  
  61.     endps
  62.     end
  63.  
  64.  
  65.  
  66.  
  67.